home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / mlht02.zip / Homepg5.bas < prev    next >
BASIC Source File  |  1996-07-01  |  927b  |  35 lines
  1. '
  2. '  Sample program for
  3. '  Mike Lehman's HotTEA - level 1
  4. '
  5. sub main()
  6.   '
  7.   ' load and play our teapot animation
  8.   '
  9.   i=animate(0,0,100,100,'','images/teapots3.gif',250,11,1)
  10.   
  11.   '
  12.   ' load an image for our client-side image map
  13.   '
  14.   j=image('','images/imap1.gif')
  15.   
  16.   '
  17.   ' now move it into position (initially hidden)
  18.   '
  19.   q=move(j,100,0)
  20. end sub
  21.  
  22. '-------------------------------------------------
  23. '
  24. ' This subroutine is entered each time
  25. ' the user clicks the mouse on a portion
  26. ' of this applet NOT containing an animation
  27. '
  28. sub mouse_click()
  29.   ' note: inrect parameters(x,y,l,t,w,h)
  30.   if inrect(xparm,yparm,100,0,80,50) q=showurl('./whatsnew.html','_self')
  31.   if inrect(xparm,yparm,100,50,80,50) q=showurl('./login.html','_self')
  32.   if inrect(xparm,yparm,180,0,80,50) q=showurl('./tryit.html','_self')
  33.   if inrect(xparm,yparm,180,50,80,50) q=showurl('./cereus.html','_self')
  34. end sub
  35.